 (define pi (* 6 (asin 0.5))) 
( define (vs aor_speed t )
	 (* aor_speed t ) ) 
( define (tran_radian radian1 )
	 (* pi (/ radian1 180)))
( define (down_time v)
	 (/ ( * v 2 ) 9.8 ))
( define (distance  v radian )
	 (vs 
	 (* v (cos (tran_radian radian )))
	 (down_time (* v (sin (tran_radian radian))))))

